# leaflet map for central park
leaflet() %>%
addTiles() %>%
fitBounds(-73.9823592,40.7636484,-73.9492441, 40.800553)## Table 1
primary_fur_color <- nyc_squirrels_clean %>%
group_by(primary_fur_color) %>%
summarize(count = n())
df <- nyc_squirrels_clean %>%
group_by(running) %>%
summarize(count = n())